From: Chong Yidong <cyd@gnu.org>
Date: Sun, 18 Mar 2012 14:18:01 +0000 (+0800)
Subject: * faces.el (face-spec-reset-face): Don't run display-graphic-p if undefined.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~419
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=bda0b703db9614e60651f8c6da44ebc2c89753d1;p=emacs.git

* faces.el (face-spec-reset-face): Don't run display-graphic-p if undefined.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8404bcec98a..dcf6021e3a4 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-18  Chong Yidong  <cyd@gnu.org>
+
+	* faces.el (face-spec-reset-face): Don't call display-graphic-p if
+	it is not yet defined (for temacs).
+
 2012-03-18  Leo Liu  <sdl.web@gmail.com>
 
 	* net/rcirc.el (rcirc-cmd-quit): Allow quiting all servers with
diff --git a/lisp/faces.el b/lisp/faces.el
index bdac3a1bb6a..34fad66ce27 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1521,7 +1521,10 @@ If SPEC is nil, return nil."
 	     (append
 	      '(:underline nil :overline nil :strike-through nil
 		:box nil :inverse-video nil :stipple nil :inherit nil)
-	      (unless (display-graphic-p frame)
+	      ;; `display-graphic-p' is unavailable when running
+	      ;; temacs, prior to loading frame.el.
+	      (unless (and (fboundp 'display-graphic-p)
+			   (display-graphic-p frame))
 		'(:family "default" :foundry "default" :width normal
 		  :height 1 :weight normal :slant normal
 		  :foreground "unspecified-fg"